﻿Public Class Role
    Inherits GenericObject
    Public Sub New()
        MyBase.idProperty = Nothing
        MyBase.nameProperty = Nothing
        MyBase.descriptionProperty = Nothing
    End Sub

    Public Sub New(ByVal id As Integer)
        MyBase.idProperty = id
    End Sub

    Public Sub New(ByVal id As Integer, ByVal name As String, ByVal description As String)
        MyBase.idProperty = id
        MyBase.nameProperty = name
        MyBase.descriptionProperty = description
    End Sub

    Public Overrides Function getTableName() As String
        Return "ROLES"
    End Function
End Class
